-- p. 60 #1, #2
myLength, myLength2 :: (Num n) => [a] -> n

myLength [] = 0
myLength (x:xs) = 1 + (myLength xs)

myLength2 xs = foldr (\elt -> (+1)) 0 xs
